home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sacred & Secular
/
Sacred and Secular.iso
/
pc
/
movies
/
shared.dir
/
05033_Script_5033
< prev
next >
Wrap
Text File
|
1996-04-03
|
2KB
|
115 lines
on copy1300
repeat with i = 1300 to 1399
put I
go movie "Sacred and Secular CD:MOVIES:BRIDGES.DIR"
put ">>>CD" && the moviePath
copyToClipBoard cast i
go movie "Sacred and Secular CDx:MOVIES:BRIDGES.DIR"
put ">>>HD" && the moviePath
pasteClipBoardInto cast i
saveMovie
if the shiftDown then asdf
end repeat
end
on copyCast start, count
--
--
-- copy the cast members from here to the shared cast file...
--
-- 300,400,500,1300,1400
--
openXlib "s maxmem"
set limit = count+start
repeat with i = start to 99
if i = (start+limit) then exit repeat
put i
copyCastHelp 300+i
copyCastHelp 400+i
copyCastHelp 500+i
copyCastHelp 1300+i
copyCastHelp 1400+i
--copyCastHelp 1500+i time-line ONLY
end repeat
put "Done with items" && start && "through " start + limit - 1
end
on copyCastHelp cn
maxmem()
put the freeBytes
copyToClipBoard cast cn
set fNum = "" & cn mod 100
if length(fNum) = 1 then set fNum = "0" & fNum
set mName = "" & fNum & ".DIR"
go movie mName
set free = findEmpty(cast 1)
pasteClipBoardInto cast free
saveMovie
go movie "BRIDGES.DIR"
end
on eraseCast start, limit
--
--
-- copy the cast members from here to the shared cast file...
--
-- 300,400,500,1300,1400,1500
--
openXlib "s maxmem"
repeat with i = start to 99
if i = (start+limit) then exit repeat
put i
eraseCastHelp 300+i
eraseCastHelp 400+i
eraseCastHelp 500+i
eraseCastHelp 1300+i
eraseCastHelp 1400+i
eraseCastHelp 1500+i
end repeat
put "Done with items" && start && "through " start + limit - 1
end
on eraseCastHelp cn
maxmem()
put the freeBytes
erase cast cn
saveMovie
end